function [discount,beca,stipend] = u35_2012(math,lang,demrecode,his,sci)
%% Universidad Catolica del Maule
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);


%Beca UCM de Arancel por Puntaje Nacional
discount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;

%BVP
if demrecode==35023 || demrecode==35016 || demrecode==35015 || demrecode==35018 || demrecode==35020 || demrecode==35011 || demrecode==35021 || demrecode==35013 || demrecode==35019 || demrecode==35017
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
